﻿Imports Subgurim.Controles.PopupMarkerChartAPIOptions
Imports Subgurim.Controles
Imports Subgurim.Controls
Imports System.Drawing
Imports Subgurim.Controles.GoogleChartIconMaker

Partial Class C_About
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Master.MostrarClienteSession()

        GMap1.GZoom = 9


        'ubica el punto inicial
        'este primer punto deberia buscarse con direccion IP.   DEBERIA :D..!!!!!
        GMap1.setCenter(New GLatLng(-12.133959600000001, -76.998805399999995))
        'ubica los point mark
        GMap1.Add(New GMarker(New GLatLng(-12.133959600000001, -76.998805399999995)))
        GMap1.Add(New GMarker(New GLatLng(-12.088050532113373, -77.049179077148438)))


        Dim GeoCoding As New GeoCoding

        GeoCoding.show = GeoCoding.ShowEnum.infowindow
        'perimite trabajar al scrol del mouse para acercar 
        GeoCoding.openedOnLoad = True
        'textos
        GeoCoding.errorText = "No tá"
        GeoCoding.buttonText = "Buscar"
        GeoCoding.infoText = "Buscar Direccion "

        GMap1.enableHookMouseWheelToZoom = True

        GMap1.Add(GeoCoding)


        'GMap1.setCenter(New GLatLng(37.441899999999997, -122.14190000000001), 13)


        'Dim myCopyright As New GCopyrightCollection("© ")
        'myCopyright.Add(New GCopyright("Demo",
        '                                New GLatLngBounds(New GLatLng(-90, -180), New GLatLng(90, 180)),
        '                                0,
        '                               "©2008 Subgurim"))


        'Dim tileLayerOptions As New GTileLayerOptions()
        'tileLayerOptions.tileUrlTemplate = "http://code.google.com/apis/maps/documentation/examples/include/tile_crosshairs.png"

        'Dim tilelayer As New GTileLayer(myCopyright, 10, 10, tileLayerOptions)

        'Dim customMapType As New GCustomMapType(tilelayer, New GMercatorProjection(13), "Subgurim")
        'GMap1.Add(customMapType)
       

    End Sub
End Class
